-- card: 4617 from stack: in
-- bmap block id: 2858
-- flags: 0000
-- background id: 2640
-- name: Animation Player
----- HyperTalk script -----
on openCard
  hide cd btn "playOrderHiliter"
end openCard



-- part 5 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=332 top=86 right=237 bottom=427
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Placeholders


-- part 6 (field)
-- low flags: 01
-- high flags: 2004
-- rect: left=222 top=70 right=298 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 14
-- style flags: 16640
-- line height: 18
-- part name: PlayOrder
----- HyperTalk script -----
on mouseUp
  --∆ select and highlight line
  put SelectionAndHiliter() into lineNumber
  --∆ Convert line number to the contents of the line
  do "put line " & lineNumber & " of " & name of me & " into name"
  --∆ test for empty selection
  if name is "" then
    play cymbal
    answer "Click directly on your choice" with "Try again!"
    exit mouseUp
  end if
  --∆ Load the animation
  put line lineNumber of cd fld "playOrder" into theClip
  put theClip into theMovie
  playmovie theMovie,movieStage,moviePreload
  playmovie movieStage,movieClick,movieNoupdate
  put "Black" into endTheShow
  playmovie endTheShow, movieStage
end mouseUp

on mouseEnter
  changeCurs 6069
end mouseEnter

on mouseLeave
  changeCurs 69
end mouseLeave




-- part 7 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=223 top=111 right=129 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: playOrderHiliter
----- HyperTalk script -----
on mouseUp
  hide me
  click at the clickLoc
end mouseUp



-- part 11 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=0 top=0 right=37 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 24
-- style flags: 2304
-- line height: 32
-- part name: 


-- part 22 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=28 top=209 right=244 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Play All
----- HyperTalk script -----
on mouseUp
  hide card window
  --∆ Load the animation
  repeat with j = 1 to the number of lines of cd fld "playOrder"
    if the mouseClick then exit repeat
    put line j of cd fld "playOrder" into theMovie
    playmovie theMovie,movieStage,moviePreload
    playmovie movieStage,movieClick,movieNoupdate
    if the mouseClick then
      put "Black" into endTheShow
      playmovie endTheShow, movieStage
      show card window
      exit mouseUP
    end if
  end repeat
  put "Black" into endTheShow
  playmovie endTheShow, movieStage
  show card window
end mouseUp

on mouseEnter
  changeCurs 6069
end mouseEnter

on mouseLeave
  changeCurs 69
end mouseLeave




-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=323 right=342 bottom=33
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  go back
end mouseUp

on mouseEnter
  changeCurs 6069
end mouseEnter

on mouseLeave
  changeCurs 69
end mouseLeave



-- part 25 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=24 top=71 right=189 bottom=208
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: 


-- part contents for card part 6
----- text -----
Opening Animation
AppleTalk for VMS
DECnet for Macintosh
AppleTalk-to-DECnet Gateway
AppleTalk for VMS Router
VAXshare-Print Services
VAXshare-File Services
MacTerminal
MacX
PCMAIL
Data Access Language
Closing Summary

-- part contents for card part 11
----- text -----
  PATHWORKS Animated Demo

-- part contents for background part 17
----- text -----
Opening Animation
AppleTalk for VMS
DECnet for Macintosh
AppleTalk-to-DECnet Gateway
AppleTalk for VMS Router
VAXshare-Print Services
VAXshare-File Services
MacTerminal
MacX
PCMAIL
DDIF Document Interchange
Data Access Language
Closing Summary
FirstScreen1
FirstScreen
FirstScreen3
FirstScreen4
FirstScreen5
FirstScreen6
FirstScreen7
FirstScreen8
FirstScreen9
FirstScreen10
FirstScreen11
FirstScreen12


-- part contents for card part 24
----- text -----
or


-- part contents for card part 25
----- text -----
Click on a subject at right to see a single topic or click below to see the entire presentation: